home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / CGIshell 1.3.2 / samples / deflect.4th next >
Encoding:
Text File  |  1996-04-23  |  566 b   |  33 lines  |  [TEXT/ALFA]
  1. \
  2. \  Deflect -- A CGI that sends you somewhere else
  3. \
  4. \  RTK, 22-Sep-95
  5. \
  6.  
  7.  --> server.4th
  8.  
  9. message[ s1 HTTP/1.0 302 FOUND ]
  10. message[ s2 Location: ]
  11. message[ s3 URI: ]
  12. message[ s4 Server: WebSTAR/1.1 ID/CGI]
  13.  
  14. create crlf 3 allot  13 crlf c!  10 crlf 1+ c!  0 crlf 1+ c!
  15.  
  16. message[ URL http://kreeft.intmed.mcw.edu/phil.html]
  17.  
  18. 512 String>> out   out newstr
  19.  
  20. : +crlf  crlf out strcpy ;
  21.  
  22. ,s sdoc  ,s WWWΩ  ae:
  23.  
  24.   s1 out strcpy  +crlf  
  25.   s2 out strcpy  URL out strcpy  +crlf
  26.   s3 out strcpy  URL out strcpy  +crlf
  27.   s4 out strcpy  +crlf
  28.   +crlf
  29.   
  30.   out REPLY
  31.   bye
  32. ;ae
  33.